2008 California Oil Spills

This analysis uses data from the California Department of Fish and Game, Office of Spill Prevention and Response’s Oil Spill Incident Tracking. This analysis focuses on 2008 oil spill data.

hide

ca_counties <- read_sf(here("data", "project-01", "ca_counties", "CA_Counties_TIGER2016.shp")) %>%  clean_names()

oil_spills <- read_sf(here("data", "project-01", "ds394.shp")) %>% clean_names()

# Create subset of ca_counties to just have name and location
ca_subset <- ca_counties %>% 
  select(name)

2008 Oil Spills in California

hide

# Check CRS

# st_crs(ca_subset) #WGS 84
# st_crs(oil_spills) # NAD 83

# Change crs of oil_spills data
oil_spills <- st_transform(oil_spills, 3857)

# Check CRS
# st_crs(oil_spills)

hide

# Create maps

# Set the viewing mode to "interactive"
tmap_mode(mode = "view")

# Then make a map
tm_shape(ca_subset) +
  tm_fill("#5C5992")+ 
  tm_shape(oil_spills) +
  tm_dots('#14191F')

Figure 1. Map of 2008 oil spills in California (black dots). Data: California Department of Fish and Game, Office of Spill Prevention and Response (2009)

Oil spills by California county

hide

# Get counts of oil spills by counties

county_spills <- ca_subset %>% 
  st_join(oil_spills)

hide

oil_spills_counts <- county_spills %>% 
  count(name)

ggplot(data = oil_spills_counts) +
  geom_sf(aes(fill = n), color = "white", size = 0.1) +
  scale_fill_gradientn(colors = c('#F0D77B','#5C5992','#14191F')) +
  theme_minimal() +
  labs(fill = "Number of Oil Spills",
       x = "longitude",
       y = "latitude")

Figure 2. 2008 number of oil spills by California counties. Data: California Department of Fish and Game, Office of Spill Prevention and Response (2009)

Citation: California Department of Fish and Game, Office of Spill Prevention and Response (2009). 2008 Oil Spill Incident Tracking. Accessed here: https://map.dfg.ca.gov/metadata/ds0394.html#ID0EUGA